Ziskat Exception

Otázka od: Andreas Bednarek

12. 11. 2002 11:42

Zdravim ucastniky konfery,
mam problem, potreboval bych zjistit text vyjimky v bloku except.

nebo-li:

try
...
except
Jak tady vlastne zjistim ktera vyjimka nastala?
end;

Diky
A.

Odpovedá: Ales Vasicek

12. 11. 2002 11:29

try
  ...
except
  on E : Exception
  do ShowMessage(E.Message);
end;

Ales

> -----Original Message-----
> From: Andreas Bednarek [mailto:bednarek@digitus.cz]
>
> mam problem, potreboval bych zjistit text vyjimky v bloku except.

Odpovedá: Petr Fejfar

12. 11. 2002 12:35

From: "Andreas Bednarek" <bednarek@digitus.cz>

> mam problem, potreboval bych zjistit text vyjimky
> v bloku except.

Podivej se do Helphu na topic "on". Jinak se to dela treba takhle:

      except
        on E:xPublished do
          raise;
        else
          begin
            PxLog.JclCatch(PXLC_ERR);
            Result := DBERR_INVALID_RECORD_IDENTITY;
          end;
      end;

HTH, pf

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.417 / Virus Database: 233 - Release Date: 9.11.2002

Odpovedá: Macko Martin

12. 11. 2002 16:10

viz upraveny priklad ...
misto obecne exception lze pouzit primo tridu vyjimky - viz help k
"Handling classes of exceptions"

-----Original Message-----
From: Andreas Bednarek [mailto:bednarek@digitus.cz]
Sent: Tuesday, November 12, 2002 10:50 AM
To: delphi-l@clexpert.cz
Subject: Ziskat Exception

Zdravim ucastniky konfery,
mam problem, potreboval bych zjistit text vyjimky v bloku except.

nebo-li:

try
    ...
except
  on e: exception do
  begin
    { v e.message je text vyjimky}
  end;
end;

Diky
A.

Odpovedá: Peter Ondras

12. 11. 2002 14:12

Ja na to pouzivam konstrukciu s "on". Vyzera to asi takto:

  try
    raise exception.create('test'); //tento riadok nasimuluje chybu
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;

Peter Ondras
peter.ondras@pse.sk
(+421) 0904 421 925

>: -----Original Message-----
>: From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz] On
>: Behalf Of Andreas Bednarek
>: Sent: Tuesday, November 12, 2002 10:50 AM
>: To: delphi-l@clexpert.cz
>: Subject: Ziskat Exception
>:
>: Zdravim ucastniky konfery,
>: mam problem, potreboval bych zjistit text vyjimky v bloku except.
>:
>: nebo-li:
>:
>: try
>: ...
>: except
>: Jak tady vlastne zjistim ktera vyjimka nastala?
>: end;
>:
>: Diky
>: A.

Odpovedá: Richard Kejval

12. 11. 2002 15:33

nebo:

try
...
except
ShowMessage(Exception(ExceptObject).Message);
end;

S pozdravem
ing. Richard Kejval
IC Software s.r.o
Mobil: +420602477679

> try
> ...
> except
> on E : Exception
> do ShowMessage(E.Message);
> end;
>
> Ales
>
> > -----Original Message-----
> > From: Andreas Bednarek [mailto:bednarek@digitus.cz]
> >
> > mam problem, potreboval bych zjistit text vyjimky v bloku except.
>
>